﻿Imports bus
Imports dto
Public Class ManHinhSuaMatKhau
    Dim bus As New NGUOIDUNGBus(ketnoi)
    Dim dto As New Nguoidungdto

    Private Sub ManHinhSuaMatKhau_Disposed(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Disposed
    End Sub
    Private Sub ManHinhSuaMatKhau_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim busQ As New QuyenBus(ketnoi)
        Dim ma As Integer = busQ.MaQuyen(Dtoquyen.TenQuyen)
        txtuserID.Text = dtonguoidung.TenDangNhap
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If bus.LayBangTableTheoTenDangNhapMatkhau(txtuserID.Text, txtpass.Text).Rows.Count <= 0 Then
            MsgBox("Mật khẩu không chính xác", , "Thông báo")
            txtpass.Focus()
            Exit Sub
        End If
        If TextBox1.Text = "" Or TextBox2.Text = "" Then
            MsgBox("Bạn chưa nhập mật khẩu mới", , "Thông báo")
            TextBox1.Focus()
            Exit Sub
        End If
        If TextBox1.Text <> TextBox2.Text Then
            MsgBox("Mật khẩu nhập lại không giống mật khẩu mới", , "Thông báo")
            TextBox2.Focus()
            Exit Sub
        End If
        dto = bus.LayBangDTo(dtonguoidung.TenDangNhap)
        dto.MatKhau = TextBox2.Text
        bus.sua(dto)
        MsgBox("Mật khẩu cửa Người Dùng: " & txtuserID.Text & " đã thây đổi" & vbNewLine, MsgBoxStyle.Information, "Thông Báo")
        txtuserID.Focus()
    End Sub

    Private Sub ManHinhSuaMatKhau_Shown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shown
        Try
            DICHTIENGANH(Me, ketnoi)
        Catch ex As Exception
        End Try
    End Sub
End Class